home *** CD-ROM | disk | FTP | other *** search
- ;
- ; Installer-Script für DosControl
- ;
- ; $VER: DC_5.2 (14.02.95)
- ;
-
- (transcript "Installation von DosControl V5.2")
-
- (user 1)
- (welcome)
-
- (set answare1
- (askchoice
- (prompt "Wo möchten Sie DosControl v5.2 installieren?")
- (choices "Festplatte" "Bootfähige Diskette DF0: ")
- (help "Eine Installtion auf eine Festplatte ist nur möglich,"
- "wenn Sie nicht mit der DosDontrol-Diskette gebootet"
- "haben.")
- (default 0)
- )
- )
-
- (if (= answare1 0)
- (
- (set dc_dir ("SYS:"))
- (set dc_c_dir("S:DC_5.2"))
- (set dc_text("S:DC_DIR_5.2"))
- (set dc_libs("LIBS:"))
- (set dc_devs("DEVS:"))
- (set dc_cdir("C:"))
- (set instpfad
- (askdir
- (prompt "Wohin soll DosControl_5.2\ninstalliert werden?")
- (help @askdir-help)
- (default dc_dir)
- )
- )
- )
- ;
- (
- (user 0)
- (set instpfad ("DF0:"))
- (set dc_dir ("DF0:"))
-
- (if (exists "DF0:c"))
- (makedir "DF0:c")
-
- (if (exists "DF0:devs"))
- (makedir "DF0:devs")
-
- ª(if (exists "DF0:s"))
- (makedir "DF0:s")
-
- (set dc_c_dir("DF0:s/DC_5.2"))
-
- (if (exists dc_c_dir))
- (makedir dc_c_dir)
-
- (set dc_text("DF0:s/DC_DIR_5.2"))
- (set dc_libs("DF0:libs"))
- (set dc_cdir("DF0:c"))
- (set dc_devs("DF0:devs"))
- (if (exists dc_libs))
- (makedir dc_libs)
- )
- )
-
- ;(procedure cfg_dir
- ; (if (exists "S:DC_5.2" ))
- ; (makedir "S:DC_5.2")
- ;)
-
- (complete 0)
-
- (copyfiles
- (prompt "Kopiere DosControl_5.2")
- (help @copyfiles-help)
- (source "DosControl_Demo")
- (dest instpfad)
- (infos)
- (confirm)
- )
-
- (complete 30)
-
- ;(cfg_dir)
-
- (set instpfad
- (askdir
- (prompt "Wohin sollen die von DosControl_5.2\nbenötigten Daten kopiert werden?")
- (help "Keine Hilfe verfügbar.")
- (default dc_c_dir)
- )
- )
-
- (textfile
- (prompt "Pfad wird gesichert.")
- (help "Keine Hilfe verfügbar.")
- (dest dc_text)
- (append instpfad"\n")
- )
-
- (complete 45)
-
- (copyfiles
- (prompt "Kopiere die von DosControl_5.2\nbenötigten Daten...")
- (source "s/DC_5.2")
- (dest instpfad)
- (pattern "#?")
- )
-
- (complete 50)
-
- (if (askbool
- (default 1)
- (help "Um alle Funktionen von DosControl nutzen zu können werden einige Libraries benötigt.")
- (prompt "Sollen die Libraries für DosControl installiert werden?"))
- (
- (copylib
- (prompt "Kopiere Powerpacker.library")
- (source "Libs/powerpacker.library")
- (dest dc_libs)
- )
- (complete 55)
- (copylib
- (prompt "Kopiere MedPlayer.library")
- (source "Libs/MedPlayer.library")
- (dest dc_libs)
- )
- (complete 60)
- (copylib
- (prompt "Kopiere Req.library")
- (source "Libs/Req.library")
- (dest dc_libs)
- )
-
- (complete 65)
- (copylib
- (prompt "Kopiere Reqtools.library")
- (source "Libs/Reqtools.library")
- (dest dc_libs)
- )
-
- (complete 70)
- (copylib
- (prompt "Kopiere Arp.library")
- (source "Libs/arp.library")
- (dest dc_libs)
- )
- (complete 75)
- (copylib
- (prompt "Kopiere KD_Freq.library")
- (source "Libs/KD_Freq.library")
- (dest dc_libs)
- )
- )
- )
-
- ;(if (askbool
- ; (default 1)
- ; (help "Um sich DMS-Files ansehen zu können, benötigen Sie einige Dateien.")
- ; (prompt "Soll die DMS-Unterstützung installiert werden?"))
- (copyfiles
- (prompt "Kopiere c/chdir")
- (source "c/chdir")
- (dest dc_cdir)
- (infos)
- (confirm)
- )
- (copyfiles
- (prompt "Kopiere devs/dms.device")
- (source "devs/dms.device")
- (dest dc_devs)
- (infos)
- (confirm)
- )
- (copyfiles
- (prompt "Kopiere devs/dms.mountlist")
- (source "devs/dms.mountlist")
- (dest dc_devs)
- (infos)
- (confirm)
- )
- ;)
- (complete 100)
-